home *** CD-ROM | disk | FTP | other *** search
/ Imaginext Pirate Activity / ImaginextPirateActivityCD.iso / Pirate Raider / piratedemo.dxr / globallingo_42_Console Put.ls < prev    next >
Encoding:
Text File  |  2003-05-30  |  371 b   |  14 lines
  1. global ConsoleOutput
  2.  
  3. on put xpr
  4.   if stringp(xpr) then
  5.     addAt(ConsoleOutput, 1, "--" && xpr)
  6.   else
  7.     addAt(ConsoleOutput, 1, "--" && string(value(xpr)))
  8.   end if
  9.   if count(ConsoleOutput) > 20 then
  10.     deleteAt(ConsoleOutput, count(ConsoleOutput))
  11.   end if
  12.   set the text of field "ConsoleField" to ConsoleOutput[1] & RETURN & the text of field "ConsoleField"
  13. end
  14.